args <- commandArgs(TRUE)
data<-read.table(args[1],sep="\t",head=T)
data<-data[with(data, order(p.value)), ]
write.table(data,args[2],sep="\t",col.names=TRUE,row.names=FALSE)

